﻿Option Explicit On
Option Strict On

''' <summary>
''' Formulario Inserta Usuario: Para introducir un nuevo usuario en la BBDD
''' </summary>
''' <author>Jose Manuel Rizo</author>

Public Class InsertarUsuario

    ' Private BaseDatos As BBDD

    Private _Nombre As String
    Private _Apellidos As String
    Private _DNI As String
    Private _Dirección As String
    Private _Telefono As String
    Private _Contrasenya As String

    Private objetoBBDD As BBDD

    Private miUsuario As Usuario

    Private Sub InsertarUsuario_Load(ByVal sender As System.Object, ByVal e As System.EventArgs) Handles MyBase.Load

        objetoBBDD = New BBDD
        miUsuario = New Usuario

    End Sub

    Private Sub Button2_Click(ByVal sender As System.Object, ByVal e As System.EventArgs) Handles Button2.Click


        'Para cuando añada un usuario

        miUsuario = New Usuario

        'Variables booleanas para validar campos
        Dim todoCorrecto As Boolean
        Dim DniCorrecto As Boolean
        Dim telefonoCorrecto As Boolean
        Dim datosCorrectos As Boolean


        'Asignamos valores
        _Nombre = tbNombre.Text
        _Apellidos = tbApellidos.Text
        _DNI = tbDNI.Text
        _Dirección = tbDireccion.Text
        _Telefono = tbTelefono.Text
        _Contrasenya = tbContrasenya.Text

        'Validamos los campos

        If (Validaciones.comprobarVacio(_Nombre)) Or (Validaciones.comprobarVacio(_Apellidos)) Or (Validaciones.comprobarVacio(_Dirección)) Or (Validaciones.comprobarVacio(_DNI)) Or (Validaciones.comprobarVacio(_Telefono)) Or (Validaciones.comprobarVacio(_Contrasenya)) Then
            MsgBox("No puede haber campos vacios")
        Else
            datosCorrectos = True
        End If


        If _DNI <> "" Then
            If (Validaciones.comprobarDNI(_DNI)) = False Then
                MsgBox("DNI incorrecto")
            Else
                DniCorrecto = True
            End If

        End If

        If _Telefono <> "" Then
            If Validaciones.comprobarTelefono(_Telefono) = False Then
                MsgBox("Telefono no valido")
            Else
                telefonoCorrecto = True
            End If
        End If


        If datosCorrectos And DniCorrecto And telefonoCorrecto Then
            todoCorrecto = True
        End If


        If todoCorrecto Then


            miUsuario.DNI = _DNI
            miUsuario.Telefono = _Telefono
            miUsuario.Nombre = _Nombre
            miUsuario.Apellidos = _Apellidos
            miUsuario.Direccion = _Dirección
            miUsuario.Password = _Contrasenya

            Try
                objetoBBDD.Conectar()
                If objetoBBDD.InsertarUsuario(miUsuario) Then
                    MsgBox("Añadido satisfactoriamente")
                End If
            Catch ex As Exception
                objetoBBDD.Desconectar()
                MsgBox("Ha habido un error")
            End Try

            objetoBBDD.Desconectar()



        End If
    End Sub

    Private Sub Button1_Click(ByVal sender As System.Object, ByVal e As System.EventArgs) Handles Button1.Click
        Me.Close()
    End Sub
End Class